home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / EDITOR / WPWRIT11.ARJ / WPWRITE.SC < prev   
Text File  |  1991-10-31  |  1KB  |  43 lines
  1. ;
  2. ; WPWRITE.SC - Call the WPWRITE Program from PARADOX.  
  3. ;
  4. ;              Written: 10/30/91
  5. ;
  6. ;  All rights reserved. (c) Copyright 1991.
  7. ;                       by: Steven Booth
  8. ;                           N28W29868 Oakwood Grove Road
  9. ;                           Pewaukee, WI 53072
  10. ;
  11. Autolib = "Slash"
  12. PaintCanv.u("Enter Name of Table to be dumped <Esc> to Quit: ")
  13. ACCEPT "A60" TO PAR_Table.a
  14. IF ( retval = False ) THEN
  15.    QUIT "WPWRITE Script Terminated by User Request"
  16. ENDIF
  17.  
  18. PaintCanv.u("Enter Name of File <Esc> to Quit: ")
  19. ACCEPT "A60" TO WPfile.a
  20. IF ( retval = False ) THEN
  21.    QUIT "WPWRITE Script Terminated by User Request"
  22. ENDIF
  23. WPfile_sl.a = BldSlash.a(WPfile.a)
  24. WHILE ( True )
  25.    ReUse.a = "N"
  26.  
  27.    IF ( ISFILE(WPfile.a) ) THEN
  28.       Ans2.a = GetYN.a("File Already Exists, Reuse It (Y/N)? ")
  29.       IF ( Ans2.a = "Y" ) THEN
  30.          ReUse.a = "Y"
  31.          QUITLOOP
  32.       ELSE
  33.          PaintCanv.u("Enter Name of File: ")
  34.          ACCEPT "A60" TO WPFile.a
  35.          WPFile_sl.a = BldSlash.a(WPFile.a)
  36.       ENDIF
  37.    ELSE
  38.       QUITLOOP
  39.    ENDIF
  40. ENDWHILE
  41.  
  42. CMD = "RUN \"WPWRITE " + PAR_Table.a + " " + WPfile_sl.a + "\""
  43. EXECUTE CMD